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; 1 1 ZTITLE *EDTSCHMEINPUT = read with echo if possible’ 

5 ¢ ¢ MODULE EDTSCHMEINPUT ( ! Read with echo if possible 
; IDENT = ‘v04-000' ! File: CHMEINPUT.BLI Edit: JBS1040 
$ & 004 ds 

3 5 5 : BEGIN 

: $ 3 1 PSSST ISIS STITT PTT TTT TTT TTI TTI TIT I TIT TILT LILI LLLILILILiLiTiLititiiiy 
3 8 08 1 Ie * 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 Baie 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1} Bt : is ALL RIGHTS RESERVED. ‘ 
; H Pa 
; 18 $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH TH ERMS OF SUCH LICENSE AND WITH THE w 
; 15 0015 1 !* USI OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
H 16 Bpi8 1 !* COPIES THEREOF MAY NOT OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
H Hs Bag : ~ TRANSFERRED. * 
$ if a 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 $3 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 4 b8 ¢ ! :* CORPORATION. * 
$ i® * 
; 26 bose 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3; @& C226 1 !* * 
; 7 0027 1 !# « 
3 8 0028 1 Seema aeare eee eee eee ERE EAE E AAA TH HEHE ARERR AERERAA AAR A ATA TEeEe 
; 9 0029 1! 

$ 0 $036 1 

3 1 ith 1 !¢¢ 

; ; O38 : FACILITY: EDT == The DEC Standard Editor 

4 34 0034 1 ! ABSTRACT: 

3 $ 0035 1! : 

3 6 B38 1! This module determines whether a special read can be performed 

; 7 0037 1! which leaves character echoing to the terminal driver, and does the 

5 ites : read if so. 

3 re sre : ENVIRONMENT: Runs at any access mode - AST reentrant 

; ? Bog : : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

; rf} bee ; ; MODIFIED BY: 

; 66 § 1 ! 1-001 = Original. DJS 04-Feb-1981. This module was created b 

3; «6467 0047 1! extrecs ing the routine EDTS$RD_ ECHO from module CHANGE.BLI. 

: 48 3 1! 1-008 - regularize headers. JBS 27-Feb-1981 

; «649 1! 1-38 - Fix module name. JBS 02-Mar-1981 

; 50 1 ! 1-004 = Revise journaling, and only do Line reads if we can read at least 

ee > | ok e four characters. JBS 18-Jun-1198 

3 26 26 1 ! 1-005 = Prompt from the global string, if requested. es 21-0c t-1981 

Ps: 3 53 1! I- $ = Remove length of prompt string. JBS 23-0ct-1981 

3 54 54 1! 1I- - Make the reads porter to allow for the cursor positioning sequence. 
3 2? 5$ 1! JBS 29-Jan-198 ; 

3 § 28 1 ! 1-008 = Don't make the lengths of the reads depend on the sees iat prompt; 

ek 0057 1! otherwise the QA system has trouble. JBS 29-Jan-1 
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£Ou2600 4 1er8eei18he $3:35i50 | Ler SePS GRRE TaeUt oc 125 A 
3 28 1! 1- ° ~ Add EDTS$G_JOU_VALID. JBS Fd Pn He 9 

: 9 1! 1- - Worry about coftrot C. ay-1 3 

; 60 1 ! 1-011 = New screen update logic. at bm ep-1982 

; 6) 1 ! 1-012 = Include the EOL Fest re routine, 1-04 nce it was only tien from here. JBS 22-Sep-1982 

3 6¢ 1 ! 1-015 = Correct a misspell ng.i8 in seers - O18. J8s rs Sep-1 

‘© 1 ! 1-016 = Add insert mode for 

: 66 1 ! 1-015 = Use a local text cae to x. fo “closbering tex tens are inserting. JBS 27-Sep-1982 

s 65 } } j- 16 - Fix journaling ef inserted text. JBS Sep-19 

: 06 1 ! 1-017 = Remove EDT$$G_LN_NO for new screen yogete te lo 16s ae peetaaicoen 

 @ 1! 1- 18 = Keep EDTS$G_ PRV ai up to date. {8s 

5; & 1! 1-019 - Al low for fat § Raracters ¥9 the right of the 982 JBS 06-0ct-1982 

; $2 1! 1- ? = Don't do optim me inout if there is text on the message Line. JBS 06-Oct-1982 

; 0 1! 1- - Don't write out to the journal fil ‘here, sgt 07-0c t-1982 

a ae 1! 1- ¢ - Fix call to EDTSSFMT_CH 1D. JBS 15-Oct-19 

: 7 1! 1- = Don't send the CR and re mw he cursor unless the terminal 

: 7 1! driver needs it. JBS 16-Oct-1 

Pe. 1! 1-024 - Handle some cases of DEL. 58s 10-Nov-1982 

.>. 1! i 5 = Don't redundently enter insert mode. JBS 11-Nov-1982 

; 76 1! 1- $ - Take into account characters already read when allowing for end of line. JBS 16-Nov-1982 
Pog ia 1! 1-027 - Take into account characters already read when positioning the cursor. JBS 22-Nov-1982 

; rf 1 ! 1-028 = Don't forget that DEL also repositions the cursor. JBS 24-Nov- 

: 79 1! 1-029 = Don't pecget to laorael the DEL. mae “3 aint the Line if NOTRUNCATE. JBS 25-Nov-1982 
; 80 1 ! 1-050 = Journal the correct text after DEL $ ¢ -Nov-19 

; 1 ! 1-031 = Change she call to EDTS$TST_KEYDEF. 46s 4-Dec-198 

cf. @ 1! 1-0 ; ~ Remove EDTSS$G_SHF. JBS 14 <Bec-19 2 

a: & 1 ! 1-033 = Don't do it af the front of any Line, even a continuation Line. JBS 20-Dec-1982 

; 8 «6884 1! ae = Change the call a? EDTSSMRK tN HG. JBS ece8 Dec-1982 

; ~6=«s«aBSS 1 ! 1-035 = Maintain EDT$$G_CS_OLDCHNO.” JBS 27-Dec-1982 

; & 7% 1-938 - If the screen i$ Hy tise “4? t do it. JBS 29-Dec-1982 

5 OT 1 ! 1-037 = Start on improvi ng quality Be in, closer to the right ane ig before quitting. JBS 14-Jan-1982 
; 688 1 ! 1-038 = Never read more than 70 ch A. & ers at a time. 1988 08-Feb-1 

; 6289 1 ' 1-039 - Read closer to the right margin. JBS 09-Feb-19 

; : I= - Use EDTSSSC_INS_MODE to avoid entering and leaving insert mode so often. J -Apr- 

a : 1-040 TSSSC_INS E i i d | i i f BS 01-Apr-1983 

: 92 1 
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core 


; oe 3? } SBTTL "Declarations' 

; 38 95 1 ! TABLE OF CONTENTS: 

if ae 

s Ri : : REQUIRE ‘EDTSRC: TRAROUNAM'; 
3 13 8 1 FORWARD ROUTINE 

3 § 539 1 EDTSSRD_ECHO; ! Try to optimize terminal input 
; 10 490 1 

; 1046 41 1! 

; 105 tg 1 ! INCLUDE FILES: 

5 4 7! 

: 10 544 1 

; 108 0545 1 REQUIRE ‘EDTSRC:EDTREQ'; 

: 109 Begs 1 

; 110 0681 1! 

: 6111 Boss 1 ! MACROS: 

s 136 685 1! 

; 11 pees 1! NONE 

: (116 +H 1! 

3s 115 06 $ 1 ! EQUATED SYMBOLS: 

3 118 0687 1! 

3; (11 0688 1 

: «118 0689 1 LITERAL 

3; «119 0690 1 CHAR_LIMIT_1 = 2, ! Do optimized input even if only this many characters can be read 
3 : 02d : CHAR_LIMIT_2 = 1; ! Read this many chars less than we can 
. FT ; b698 1! 

3 } 0694 1 ! OWN STORAGE: 

: 126 0695 1! 

: 125 98 1! NONE 

2° % $ 9 1! 

‘nS 98 1 ! EXTERNAL REFERENCES: 

; 128 0699 1! 

; 129 0700 1! In the routine 
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ZSBTTL "EDTSSRD_ECHO = read with echo if possible’ 
GLOBAL ROUTINE EDTSS$RD_ECHO ! Read with echo if possible 
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i FUNCTIONAL DESCRIPTION: 


This routine determines whether or not an optimization for terminal 

input can be done. If we are yrrgntly positioned at the end of a Line, 

or if the terminal has the VT102 “‘insert character mode’’ feature, 

then it is possible to let the terminal driver do the echoing of printable 
characters for us up to the input of a character which may be a definable 

key, or to near the end of the Line, where even a non-definable key needs 
special ae ne such as wrap or display of a diamond. This is much more 
efficient than the single character input with no echo which is normally done. 


This routine checks a whole series of conditions which must be met before 

opt taized input is possible, then comes a with the number of 

characters which can be read with echo. If this is large enough then a special 
read routine is called to do the input. If the input is terminated by an 
escape or control character, that character will be put in the Syes-s ead 
character, so it will be the next character returned by EDTS$$TI_INPCH. 


FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 

EDTS$G_CUR COL 
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EDTSSA_SEC BUF 


SNS 


PMOPINIRITY oe ot os 


PWN" OOWDNOAUE UN" OOODNOUFS WN Me 


WN SO CONAOUEWN—“OOOBNOUS WN —O0@ 


SQN NN NNN GNSS 


WONOUEWN—O0O~N 
MmMmMmMmMmMmMmmmmmmmnmen 


Wwn— 


EDTS$$G_INSERT_MODE 
IMPLICIT OUTPUTS: 
EDTS$A_LN_PTR 
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ay - read with echo if possible 


- read with echo if possible 12: =tep- 


EDTS$G_ ty cot 


EDTS$$G_ HGD 
EDTS$$G ~500 VALID 
EDT$$G_CC_BONE 
EDTS$G_RDAHED 
EDTS$G_VERT 
EDTS$$1_DEL_CH 
EDT$$G_DEL"CHLEN 
EDT$$G_CS_OLDCHNO 


ROUTINE VALUE: 


0 = read with echo not possible, 1 = read 


SIDE EFFECTS: 


NONE 


BEGIN 
es ROUTINE 


: NOVALUE 
: NOVALUE, 


f 
NOVALUE 
: NOVALUE; 
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EDISsec. 


EXTERNAL 
EDTS$SG_ CUR_COL, 
EDTS$$G_LN_CHGD, 

“LNO 


T SEUKPAD. 
T$$G_R 
SSA_ ton ‘aur 


$$G6_TI_QID 
“WRAP, 
*: REF VECTOR C, BYTE), 


: REF TBCB_BLOCK, 


$ST-PMT“KPD': VECTOR C, BYTE), 
$$G~JOU-VALID, 
$ ONE 


71986 42:22:00 


' Test for a 
! Format a literal string 
' Read with echo 

' Put characters in the 

! Update the length of the 
!' Position the cursor if necessary 

' End reverse video 

' Start reverse video 

' Compare the select Line with the current Line 
' Compute the width of a character 

' Test a key 
!' Erase to end o 


AX=-11 Oh eee te V4.0-742 
EDT. SRCICHMEINPUT.BLI;1 


with echo done. 


control C 


ournal buffer 
current Line 


ior, a M ies definition 
Mark a ‘ine as hi. 2 changed 


i Enter insert mode 


current column . 

Indicates current Line has changed. 
cursor Line. 

Pointer to select buffer. 

Last entity was VERT flag. 

Keypad activated? 

In recovery mode? 

The current buffer tbcb 

Width * terminal Line 

Word w 

oo ty ine buffer 

Current character pointer 

Pointer to end of cyrrent Line 
Previous column num 

Counted ASCII string. ter RgyPad prompt 
The journal record is val 

Control C actuall Bey something 
The current work Line 
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EDTSCHMEINPUT EDTSCHMEINPUT = read with echo if possible 1.58 -1984 23:50:01 AX-11 Bliss-32 V4.0-74 Page 6 
4-000 EDTSSRD_ECHO = read with echo if possible 12280 8= 1 98e $3 :39:95 EDT.SRCICHME INPUT .BLI; . (3) 
; 245 15 EDT$$7_E0B_LN ! The spectal Line that marks end of buffer 
i hb 1g EDT$$G_T1 EDIT, i 1 = this terminal has Insert Character Mode 
; 24 1 EDTSSG_MSGFLG ' 1 = there is text on the message line 
; 248 18 EDTS$G_TI DUMB, ! 1 = terminal driver needs CR to avoid wrapping Lines 
: 249 1 EDTS$G_RDAHED, ' Number of chars in read-ahead buffer 
; 0 0 EDTSS$T_RDAHED:, ! The read-ahead buffer 
3 1 1 EDTSST_DEL_CH : VECTOR (C2, BYTE], ! Deleted character buffer. 
; é 0 ¢ EDTS$G_DEL_CHLEN, ' Length of deleted character buffer 
3 @ 08 EDTS$G_TRUN ! Q = NOTRUNCATE mode 
> 254 0824 EDTSSA_CSR ScRPTR : REF SCREEN_LINE, ! Pointer to current screen info for current Line 
; 255 0825 EDT$$G_CS_OLDCHNO, ' Old character position on the Line 
$ 23 8 6 EDTS$$G_SHF ' Screen shift amount 
; 25 0827 EDTS$G_INSERT_MODE; i 1 = screen is in insert mode 
; 258 0828 
; 259 0829 LOCAL 
3 500 0830 BUF _LEFT 
; 261 0831 UM” CHARS, 
3 $06 bees EAB 
; 26 083 UM_READ 
> 264 0834 READ_DONE 
; 365 0835 TERMINATOR_PROCESSED 
; 266 0836 TEXT_BUF :~VECTOR (132, BYTE); 
; 267 0837 
; 268 0838 '¢ 
; 269 0839 ' We can only do this in keypad mode. 
; $f0 0840 te 
: 71 0841 
$ $i§ Bare IF ( NOT .EDT$$G_KPAD) THEN RETURN (0); 
: 2 08435 2 
; 274 0844 2 !+ 
s are 0845 2! If we are on a continuation Line don't do it. 
: $78 0846 § f= 
3 ere 0847 
; 378 0848 é IF (.EDTS$A_CSR_SCRPTR EQLA 0) THEN RETURN (0); 
: 380 0850 2 IF (.EDT$$SA_CSR_SCRPTR CSCR_CHR_FROM] NEQ 0) THEN RETURN (0); 
; 282 th '¢ ; f 
; 283 085 ! If we are at the left margin don't do it. 
: Ss oBss 3 
; 86 0856 5 IF (.EDT$$A_CSR_SCRPTR CSCR_CHR_FROM] EQL (.EDTS$A_LN_PTR - EDTS$T_LN_BUF)) THEN RETURN (0); 
; 5 3 1+ 
3 $89 $839 ! If in recovery mode don't do it. 
; 290 0860 te 
3; 291 0861 
; 32 O86¢ IF .EDT$$G_RCOV_MOD THEN RETURN (0); 
; 29 bBo 
: 294 0864 t¢ , 
; 295 Beez : If at end of buffer don't do it. 
; 3 0 
; 4 b 3 IF (.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) THEN RETURN (0); 
; 300 0 2! 
; 301 0871 ! If there is text on the message Line don't do it, since we want 
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RD_ECHO = read with echo if possible 14-Sep-1984 12:22:26 EDT.SRCJCHMEINPUT.BLI; (3) 


cove HMEINPUT ED 
Vv ED 
; o¢ a8 ! to erase the text at the next keystroke. After that keystroke 


! the message Line will be erased and we will come back here to 
check again for optimized input. 


oO 
uw 


LESES 


IF (.EDTSSG_MSGFLG) THEN RETURN (0); 


: 08 

; 308 : 

: 09 '¢ 

3 10 8 ! If the screen is shifted don't do it. 

3 1 oe '- 

: ig 08 IF (.EDTS$G_SHF NEQ 0) THEN RETURN (0); 

i 318 08 

: 316 08. i If this terminal has editing features don't do it if there is 
3; oy 08 : a tab to the right of the cursor, If this terminal does not 

; 318 08 ! have editing features, don’t do it if there is anything to the 
; 319 08 ! right of the cursor. 

; 320 0890 ! 

s sei 0891 

3 $56 0892 2 IF .EDTS$G_TI_EDIT 

; = 089 ¢ THEN 

: 338 oBes 3 or 

: $59 Bane 3 a c NOT CHSFAIL (CHSFIND_CH (CHSDIFF (.EDTSSA_LN_END, .EDTSSA_LN_PTR), .EDTSSA_LN_PTR, ASC_K_TAB))) 
; 355 0898 3 RETURN (0); 

; 94 0899 3 

: 330 0900 3 END 

; 33! 449 § ELSE 

; 338 0903 2 IF (CHSDIFF (.EDTSSA_LN_END, .EDTSS$A_LN_PTR) NEQ 0) THEN RETURN (0); 
: 330 0905 2 !+ 

: 339 Bone : Finally, it looks possible. Keep doing it as long as we can. 

: 338 0908 2 READ_DONE = 0; 

; 339 0909 2 READ = 0; 

; 340 0910 2 

3: «(341 0911 

3 s06 bo§ BEGIN 

; 34 091 TERMINATOR_PROCESSED = 0; 

3 (344 0914 '¢ 

5 t2 345 Compute the number of characters left on the Line. 

3 347 0919 NUM_CHARS = .EDTS$$G_TI_WID - 1; 

; 348 0918 '¢ 

: rH 3484 : If we are in wrap mode, make sure we get control at the wrap column, 
: 351 0921 3 ) 
; ; 09 § IF (.EDTS$G_WD_WRAP LSS .NUM_CHARS) THEN NUM_CHARS = .EDTS$$G_WD_WRAP; 
; 354 924 3 14 

: 32 , 5 Subtract the current cursor position. 

: 35 G $ d NUM_CHARS = .NUM_CHARS - .EDTS$G_CUR_COL - .READ; 

; 5358 0928 '¢ 
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Vv EDTSSRD_ECHO = read with echo if possible 14-Sep-1984 12:22:26 EDT.SRCICHMEINPUT.BLI; 
; 929 ! Subtract the width of the characters to che right of the cursor. Note that 

: 950 : unless we are on a terminal with screen editing features this will always 

; 931 ! be zero. Note also that there can be no HTs to the right of the cursor, 

; 9 § ' so the widths of the characters are Lncepengens of their position on the Line. 

: M ? } Hence the second parameter to EDTSSFMT_CHWID will not be used. 

; 935 3 

; 9 : INCR CPTR FROM .EDTSSA_LN PTR TO .EDTSSA_LN_END = 1 DO 

; , NUM_CHARS = .NUM_CRARS = EDTSSFMT_CHOID™ (CHSRCHAR (.CPTR), 0); 

; 09 5 16 

3 Bee Make sure there is enough room left in the Line buffer. 

: 3% BUF_LEFT = 255 = CHSDIFF (.EDTSSA_LN_PTR, EDTSST_LN_BUF); 

: 0944 IF (.BUF_LEFT LSS .NUM_CHARS) THEN NUM_CHARS = .BUF_LEFT; 

; +94 4 : Don't try to read more than the space we have in our local buffer. 

: 279 0949 3 

; 81 Bee0 IF ((.NUM_CHARS + .READ) GTR 132) THEN NUM_CHARS = 132 - .READ; 

3 Be 095 ‘+ 

; 38 095 ! Now, if we have a reasonable size, we can read with echo. 

3 spe 0954 !- 

; 385 0955 

; 386 0956 4 IF_(.NUM_CHARS GTR CHAR_LIMIT_1) 

s Jer 0957 3 THEN 

; 388 0958 4 BEGIN 

; 389 0959 4 !+ é , 

3 ty Bee 2 We will do a read with echo. Make sure the video attributes are right. 

; 332 096¢ 4 : 

: 9 096 5 IF (.EDTSSA_SEL_BUF EQL .EDTS$A_CUR_BUF) 

: 394 0964 4 THEN 

3; 395 0965 5 BEGIN 

; 396 0966 5 

3 4 4444 5 IF (EDTSS$SEL_RNGPOS () LEQ 0) THEN EDTSSSC_REVID () ELSE EDTSS$SC_NONREVID () 
: 399 0969 3 END 

: 400 0970 4 ELSE 

3; 401 0971 4 EDTSSSC_NONREVID (); 

; 40 972 4 

; 40 975 & I+ oa f 

3; 404 0974 4! If we are not at the end of the Line, put the terminal in insert mode. This can only 
$ reo 348 2 be done on terminals that have the ‘edit’ feature. 

: 607 977 4 

: 408 a ; IF ((CHSDIFF (.EDTSS$A_LN_END, .EDTSSA_LN_PTR) NEQ 0) AND (.EDTS$$G_INSERT_MODE EQL 0)) 
: 410 980 4 EDTS$SC_INS_MODE (); 

: 6411 981 4 

; zi¢ § 4 !+ : 

; (41 9 4 ! Put out a carriage return to make the terminal driver think we are at the 

3 414 84 4 ! beginning of a line, then reposition the cursor. This is needed oor? for 

3 «6415 985 4 ! some terminal drivers, that lose track of the cursor and output a CRLF 


16 
EDTSCHE INPUT EDTSCHMEINPUT = read with echo if possible 15-Sep-1984 $3:39:9) AX-11 Oh i eeere V4.0-742 Page 
v04-000 EDTSSRD_ECHO = read with echo if possible 14-Sep-1984 12:22:26 EDT. SRCJCHMEINPUT.BLI;1 
: tig g § ; } if they think that the user is about to type to the right of the screen. 
; $18 9 3 4 
; 41 4 IF .EDTS$G_T1I_DUMB 
; 420 990 4 THEN 
; 421 991 BEGIN 
; 4 § 336 EDTSSFMT LIT (UPLIT (ZSTRING (XZCHAR (ASC_K_CR))), 1); 
; 4 99 EDTS$G_PRV_COL = 0; 
: 426 0994 4 ND; 
: 425 0995 4 
; 4 $ 39 4 !+ 
: : 4 1044 ? } Make sure the cursor is positioned correctly. 
3 ? 9 +444 ? - EDTSSSC_POSCSIF (.EDTS$G_CS_LNO, .EDT$$G_CUR_COL + .READ); 
3; 431 1001 4 ! Do the special read with echo. Optionally prompt. Since the terminal driver may 
: $36 IOS 4 ! count the length of the prompt, it must be short enough that our ‘worst case’’ estimate 
; 43 1003 4 ! of 10 characters in the repositioning allows for it. Don't read more than 70 characters 
; 434 1006 4 ! at a time. 
: +32 ib ? t= 
; 14 1907 ‘ IF (.EDTS$T_PMT_KPD CO] GTR 0) THEN EDTSSFMT_LIT (EDTSS$T_PMT_KPD [1], .EDTS$T_PMT_KPD (0)); 
: 439 1009 4 EDTSS$TI_RDSTR (TEXT BUF C.READJ, MIN (70, .NUM_CHARS = CHAR_LIMIT_2), NUM_READ); 
: 440 1010 4 EDTS8G PRV_COL = .EBTS$G_PRV_COL + .NUM_READ; 
3 461 1011 4 EAD_DONE = 1; 
; rr 118 4 ND 
; 6446 101 ELSE 
: 446 1014 NUM_READ = 0; 
: 445 1015 
: 446 1016 '+ 
; 447 1017 ! Cause the characters to appear in the next journal record. 
; 448 1018 !- 
; 4469 1019 
: 450 1330 INCR COUNTER FROM 0 TO (.NUM_READ - 1) DO 
3 $33 18 1 EDTS$TI_BUFCH (.TEXT_BUF C.READ + .COUNTER)); 
3 re 1098 EDT$$G_JOU_VALID = 1; 
; 4546 1024 READ =".READ + .NUM_READ; 
; 455 1025 '¢ ; 
; 456 10e¢ : If the Line was terminated by a control C bail out. If any characters were 
3 457 102 ! read the insert is aborted; otherwise the control C is effectively ignored. 
BRB 
; 460 i 0 IF EDTSSCHK_CC () 
: 461 19a) THEN 
3 $86 10 5 4 BEGIN 
: 46 10 4 
: 464 10 4 IF (.READ GTR 0) THEN EDT$$G_CC_DONE = 1; 
; 465 19 5 4 
: 466 1 $ 4 RETURN (0); 
3; 467 193 END; 
; 468 1038 
: 469 1039 '¢ 
; 470 1040 ! If there is a single terminator, and if it is defined to delete 
: ria Hod the last character, shorten the string by one and do another read. 


16 
EDTSCHMEINPUT EDTSCHMEINPUT = read with echo if possible 15-5e 1984 50:01 AX-11 Bliss-32 V4.0-74 
O2000 EDTSSRD_ECHO = read with echo if cossibie 1228 08- 1 3b $3 339390 EDT SREICHME INPUT OL 114 
: 473 1043 ; 
: 474 1044 IF ((.EDTS$S$G_RDAHED EQL_ 1) AND ! 
: 475 1045 4 EDTSSTST_KEYDEF (CHSRCHAR (EDTSS$T_RDAHED), UPLIT (BYTE ("D-C.")), 4, 0) AND 
: 476 1966 4 (.READ GEQ 1)) 
3 477 1047 3 THEN 
; 478 1S68 4 BEGIN 
: 479 104 4 '+ 
: ret 1929 2 Make sure the delete character appears in the journal. 
: 48 105¢ 4 EDTSSTI_BUFCH (CHSRCHAR (EDTS$T_RDAHED)); 
; 48 1053 4 READ = .READ = 1; 
3 tRe 19 2 EDTSSSC_POSCSIF (.EDT$$G_CS_LNO, .EDTS$$G_PRV_COL - 1); 
; 486 1928 5 IF (.EDTS$SG_INSERT_MODE NEQ 0) 
; 487 1057 4 
: 488 1058 5 BEGIN 
; 489 1059 5 !4 
: re H's : We must delete exactly one character. 
3; 492 1006 5 EDTSSFMT_LIT (UPLIT (BYTE (ASC_K_ESC, %C°C*. %C'P')), 3); 
3; 493 1063 5 END 
: 494 1064 4 ELSE 
3; 495 1065 5 BEGIN 
: 496 1066 5 !+¢ 
; 497 1067 5 ! We are just before the character to delete, and there are no visible characters after 
: re | 1308 2 } the character to delete. We can erase to end of Line. 
; 500 1070 5 EDT$S$SC_ERATOEOL (); 
3 301 1071 4 END; 
; ote 10r6 4 
; 30 1073 4 !4 
3 2pe + 6) ? Store the character deleted in the delete character buffer. 
; 506 1076 4 EDTS$$G_DEL_CHLEN = 1; 
; 507 1077 4 EDT$$T_DEL_CH CO) = DIR BACKWARD; 
; 508 1078 4 EDTS$T_DEL_CH C1) = .TEXT_BUF C.READ); 
; 509 1079 4 EDT$$G_RDARED = 0; 
; 510 1080 4 EDTS$$G_VERT = 0; 
; 511 1081 4 TERMINATOR_PROCESSED = 1; 
3 21g 186 END; 
,. 3 108 
3 316 1084 '¢ : 
s SiS 1085 ' Keep reading if we processed the terminator. 
; 218 1936 ; te 
3; 51 108 END 
; 518 1088 UNTIL ( NOT .TERMINATOR_PROCESSED); 
; 519 1089 
: 320 1090 ‘¢ ; 
3 2s! 34 : Insert the characters read into the Line. 
; 258 e 1998 EDTSSCPY_MEM (CHSDIFF (.EDTSSA_LN_END, .EDTSSA_LN_PTR), .EDTSSA_LN_PTR, ' 
4 se 1094 CHSPCUS (,EDTSSA_LN PTR, BEAD); 
; 3 5 1095 ,, EDTSSCPY_MEM (.READ, TERT BUF (OJ, .EDTSSA_LN_PTR); 
3 509 1997 : Add the number of characters read to the Line size. 
; 529 1099 EDTS$SUPD_LNLEN (.READ); 
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CHO = read with echo if possible EDT. SRCJCHMEINPUT.BLI; 


16 
EINPUT = read with echo if possible 18-5 -1984 23:50:01 AX-11 Bliss-32 V4.0-742 P 
7 4 12288p-1984 42:39:56 jcnm i ne 
t 


M 

D 

‘+ 

If we actually read some characters update the cursor position. 
2 

2 

2 

2 

2 

1 


IF (.READ NEQ 0) 
THEN 


BEGIN 
EDTS$G_CUR_ COL = .EDT$S$G_CUR_COL + .READ; 
EDTS$G_VERT = 0; 


! Note that the Line is not marked as changed for the screen 
! updater, since the modification to the screen has already 

' been made. However, we must note for the work file system 
that the current Line has been changed. 


EDTS$G_LN_CHGD = 1; 
END; 


'¢ 
Update the current character pointer. 


EDTSSA_LN_PTR = CHSPLUS (.EDTSSA_LN PTR, .READ); 

EDT$$G_CS_OLDCHNO = .EDT$$G_CS_OCDCANO + .READ; 

RETURN (.READ_DONE) ; . 

END; ! of routine EDT$$RD_ECHO 
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50 000000006 


52 000000006 
000000006 


CHMEINPUT = read with 


EDTS 
EDTSSRD_ECHO 


EDTSCHME INPUT 


v04-000 


' bac ie 
EDTSCHMEINPUT EDTSCHMEINPUT = read with echo if possible 18. -Sep-19 2:50:01 AX=11 Bliss-32 V4.0-742 Page 13. EC 
4.000 EDTS$RD_ECHO = read with echo if poss ibis 1a-8ep- 1384 $3; 39: 3 EDT. SRCJCHME INPUT .BLI;1 ° ast ve 
0 000000006 00 96 00¢ MOVAB EDTSS$T iN BUF. RO : 0942. : 
9 69 § 00D SUBL EDISSATLN RO : | : 
OOF F f E 000D MOVAB 255( ROD Bur Cert ; | : 
§2 D1 000DD CMPL  BUF_LEFT, NUM_CHARS > 0944 ; 
03 18 O00E0 BGEQ ; : 
53 53 00 O0Ee MOVL. BUF_LEFT, NUM CHARS ; : 
50 5 57 C1 O00ES 10$:  ADDL3 REAB, NUM_CHARS, + 0950) ; 
00000084 &F 50 01 000E9 CMPL RO, #132 ~ : | : 
08 13 OOF 0 BLEQ = ‘11 : | 
52 00000084 aF C3 000F SUBL3 READ, #132, NUM_ CHARS : ; 
02 32 D1 OOOFA 11$: CMPL § NUM_CHARS, #2 + 0956. ; 
03 14 b00FD BGTR 12$7 : : 
OOAD 31 OOOFF BRW 19$ : ; 
000000006 00 000000006 00 D1 00192 12$: CMP EDTS$A_SEL_BUF, EDT$$A_CUR_BUF ; 0963. : 
000000006 00 00 FB 0010F CALLS #0, EDTSSSEL_RNGPOS t 0967. ; 
50 D5 00116 TSTL = RO : ; 
09 14 00118 BGTR 13$ : 3 
000000006 00 00 FB OO11A CALLS #0, EDT$$SC_REVID : | ; 
07 11 00121 BRB : | ; 
000000006 90 00 FB 00123 138: CALL EDT$$SC_NONREVID : 0971 | ; 
69 6A D1 OO12A 14$: CMPL EDTSeA. LN_END, EDT$$A_LN_PTR : 0978. ; 
OF 13 0012D BEQL s15 ; ; 
000000006 00 v5 0012F TSTL  EDTS$G_INSERT_MODE : ; 
07 12 00135 BNEQ py 3 3 
000000006 00 00 FB 00137 CALLS EDTS$SC_INS MODE : 0980) ; 
13 000000006 00 £9 0013E 15$:  BLBC  EDT$$G_TI_DOmB,~1 > 0989. : 
01 DD 00145 PUSHL #1 : 0992. ; 
FEAA CF 9F 00147 PUSHAB  P.A : ; 
000000006 00 02 FB 00148 CALLS #2, MD TSSEMT LIT : ; 
000000006 00 D4 00152 CLRL EDT$$G_PRV_COL > 0993. ; 
50 6B DO 00158 16$: MOVL EDT$$G-CURTCOL, RO > 0999 | ; 
6740 9F 00158 PUSHAB (READ)[RO] ; | : 
000000006 00 DD 0015E PUSHL EDTS$$G_CS_L ; | ; 
000000006 00 02 FB 00164 CALLS #2, EDT$$SC_POSCSIF ; 
50 000000006 00 9A 00168 MOVZBL EDTS$ST_PMT_RPD, RO ; 1007 | 
OF 15 00172 BLEQ  17$ : 
50 oD 00174 PUSHL RO : 
000000006 00 9F 00176 PUSHAB EDTS$$T_PMT_KPD+1 : 
000000006 00 02 FB 0017¢ CALLS #2, EDTSSFAT_LIT : 
SE DD 00183 178 PUSHL SP : 1009 
50 FF Ad 9E 00185 MOVAB -1(R2), RO ; 
50 DD 00189 PUSHL RO : 
00000046 = &F 6— D1 00188 CMPL (SP), #70 : 
04 15 0019 LEG 18s : | 
6E 46 8F 9A 00194 MOVZBL : 
OC AES? 9F 00198 18$:  PUSHAB Text SUF READ) ; 
000000006 00 03 FB 0019¢ CALLS EDT$$TI_RDSTR ; 
000000006 00 6— CO O01A3 ADDL2 NUM_ READ, EBT$$G_PRV_COL > 1010. 
58 01 DO OO1AA MOVL #1, READ. DONE : 1011. 
02 11 OO1AD BRB 20$ > 0956 | 
6E D4 OOIAF 19S: CLRL §NUM_READ > 1014. 
54 01 cE 00181 20$: | MNEGL #1, COUNTER : 1020. 
10 11 001B4 BRB § : 
50 7 54 4 00186 21$: ADDL COUNTER READ, > 1021. 
E 04 AEGO 9A OO1BA MOVZBL yext Bue tr fo, : 
000000006 00 01 FB 001BF CALLS EDTSSTI TguFcn : 
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1 
EDTSCHME INPUT EDTSCHMEINPUT = read with echo if possible 1§. Sep-19 50:01 AX-11 Bliss-32 V4.0-742 Page 14 
v04-000 EDTSSRD_ECHO = read with echo if possible 14- 7300-1 3b 13:33:96 EDT. SRCICHME INPUT -BL 1:1 “ (3) 
C 54 6 F2 001C6 22$: AOBLSS NUM. READ COUNTER. 218 ; : 
000000006 99 01 66 ICA MOVL EDTSSG, J VALID + 1023 : 
6— CO 00101 ADDL2 i EPAD READ- : 1084 ; 
000000006 00 0 FB 001D4 CALLS #0, “BDI SéchK_ cc + 1030 ; 
OE 9 E9 00108 BLBC 0, : | $ 
D5 O10 TSTL neh + 1034 ; 
07 15 OO1E BLEG  23$ : ; 
000000006 00 01 p0 OO1Ee MOVL #1, EDT$$G_CC_DONE : | ; 
00D2 31 OO1E 238: BRW 31§ t 1036 ; 
01 006000006 00 01 OieC 4$: CMPL _ EDTS$G_RDAHED, #1 + 1044 ; 
03 13 OO1F EQL 40s 5$ : | ; 
0084 31 001F5 RW 28$ : | ; 
7E 04 7D 001F8 258: OVO #4, =(SP) + 1045, ; 
CF OF OO1FB PUSHAB P.AAB : | ; 
7E 000000006 00 9A OO1FF MOVZBL EDTS$T_RDAHED, -(SP) : ; 
000000006 00 04 FB 00206 CALLS #4, EDTSS$TST_KEYDEF : : 
6C 50 €9 00200 BLBC RO, 28$ : | : 
57 05 00210 TSTL READ : 1046) $ 
68 15 00212 BLEG = 28$ : | ; 
7E 000000006 00 9A 00214 MOVZBL EDTS$T_RDAHED, -(SP) + 1052. ; 
000000006 00 01 FB 0021B CALLS #1, EDT$$TI_BUFCH : ; 
57 D7 00222 ECL. READ 5 1053) ; 
7E 000000006 00 01 C3 00224 SUBL3 #1, EDT$$G_PRV_COL, -(SP) + 1054 | ; 
000000006 00 DD 002ec PUSHL EDT$$G_CS_CNO ; | ; 
000000006 00 02 FB 00232 CALLS #2, EDT$$SC_POSCSIF : | ; 
000000006 00 D5 00259 STL  EDT$$G_INSERT_MODE : 1056. ; 
OF 13 O023F EQL 26$ : | ; 
03 DD 00241 PUSHL #3 + 1062. ; 
FDB6 CF 9F 00243 PUSHAB P.AAC : ; 
000000006 00 02 FB 00247 CALLS #2, EDTSSFMT_LIT : ; 
07 11 0024E BRB 27$ : 1056 : 
000000006 00 00 FB 00250 268: CALLS 40, EDTSSSC ERATOEOL : 1070 : 
003000006 00 01 00 00257 27$:  MOVL #1, EDT$$G_BDEL_CHLEN ; 1076 | : 
000000006 ago 94 0025E CLRB = EDT $$T_DEL “CH : 1077. ; 
000000006 00 E47 90 00264 MOVB _—«*TEXT_BOF READ, EDT$$T_DEL_CH+1 : 1078 | ; 
900000066 aE D4 0026D CLRL EDTSSG_RDAH ; 1079 | 3 
000000006 00 D4 00273 CLRL  EDTS$$G PATE > 1080 : 
56 01 00 00279 MOVL #1, TERMINATOR_PROCESSED + 1081 | : 
03 56 E9 0027C 28$: BLBC — TERMINATOR_PROCESSED, 298 > 1088 | : 
FEOF 31 O027F BRW 6$ ; : 
56 69 D 00282 29$: OVL EDTSS$A_LN_PTR, R6 > 109% | ; 
50 6A 56 C3 0028 SUBL3 R6, EDTS$A_LN_END, RO ; ; 
6746 66 50 28 00289 MOVC3 RO. (R6), TREAD)CRO) : : 
ry) 04 AE 57 28 00g MOVC3 READ, TEXT_BUF, (R6) > 1095 | ; 
57 DD 0029 PUSHL READ : 1099 ; 
000000006 00 01 FB 00295 CALLS #1, EDTS$SUPD_LNLEN ; : 
57 05 0029C TSTL READ + 1104) ; 
10 13 0029E BEGL  30$ ; | : 
68 57 0 00 AO ADDL2 READ EDTS$6_ CUR_COL + 1107) ; 
000000006 00 04 002A CLRL EDT Ts$ : 1108. : 
000000006 00 01 DO 0249 MOVL PaTSec. LN CHGD : 1115. : 
69 57 CO 00280 30$: ADDL READ” EDTSSA _CN_PTR > 1121. 3 
000000006 00 57 C0 00 B3 ADDL READ, peDrsse CS“OLDCHNO ; Vigg j 
50 58 00 002BA MOVL READ_DONE, RO : 1123. : 
04 002BD RET 3 5 
50 04 OO2BE 31$ CLRL = RO > 1124 : 
04 002C0 RET : : 
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“EDTSCHME INPUT 


= read with ec 


HMEINPUT = read with ec 


RD_ECHO 


EDTSS 


LEDTSCODE + 0008 


Routine Base: 


705 bytes, 


3; Routine Size: 


!<BLF /PAGE> 


cr — ee mn 


EDTSCHMEINPUT EDTSCHMEINPUT = read with echo if possible 1B-se ety 7a 30:0) AX-11 hes 3 V4.0-742 Page 16 
v04-000 EDTSSRD_ECHO = read with echo if possible 14-5 22:26 EDT. SRCICHMEINPUT.BLI;1 (4) 
is 558 1127 1 END ! of module EDTSCHMEINPUT : 
: 559 1188 i : : 
; 560 1129 0 ELUDOM : 
i: PSECT SUMMARY | : 
3 Name Bytes Attributes 
: _EDTSCODE 716 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | : 
: Library Statistics 
; es een eee Bere. ag Wey ae ny, See Symbols occee-- Pages Processing | 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: EDT. SRCJEDT = 32:1 377 39 10 40 00:00.2 | 
> 7$255 SpuAgB, EDT.SRCIJPSECTS.L32;1 2 1 50 7 00:00.1 
| 
| 
: COMMAND QUALIFIERS 
° Sa eer eee eT EAS, OPT TALES )PMOTRALEOALE 154. LSB EMIE INPUT SOR ORIG CONE LPUE MSRC$:CHME INPUT.BLI/UPDATE=(ENH$:C | 
Size: 705 code + 11 data bytes 
Run Time: 00:30.2 


Elapsed Time: 00:34.5 
Lines/CPU Min: gc70 240 
Lexemes/CPU-Min: 145 
poe Used: 198 pages 
Compilation Complete 
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